home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Guide to Advanture Travel / The Ultimate Guide to Advanture Travel.iso / pc / installa.6 / Online Files / Check Modem < prev    next >
Text File  |  1995-07-10  |  2KB  |  91 lines
  1. !*****************************************************************************
  2. !   C O P Y R I G H T   A N D   C O N F I D E N T I A L I T Y   N O T I C E
  3. !*****************************************************************************
  4. !
  5. !      Copyright © 1987-1994 America Online, Inc.  All rights reserved.
  6. !      This software contains valuable confidential and proprietary
  7. !      information of America Online, Inc. and is subject to applicable
  8. !      licensing agreements.  Unauthorized reproduction, transmission or
  9. !      distribution of this file and its contents is a violation of
  10. !      applicable laws.
  11. !
  12. !            A M E R I C A   O N L I N E   C O N F I D E N T I A L
  13. !
  14. !*****************************************************************************
  15.  
  16. ! - Check Modem capability ccl
  17. ! - by L. Matthew Day
  18. !  Adding pauses before and after "+++" command. - RG, 1/21/94
  19. !
  20. CheckPort "PortTaken"
  21. CanBtn "PortTaken"
  22. ChrDelay 2
  23. SerReset 300 0 8 1      { I assume a minimum of a 300 baud modem }
  24. Pause 30
  25. Flush
  26. Pause 210               { Pause for 2 sec min gap }
  27. Xmit "+++"                { Get the modems attention}
  28. Pause 210               { Pause for 2 sec min gap }
  29. !
  30. ClrMchStr
  31. MatchStr "TestAutoReliable" "OK"
  32. MatchStr "TestAutoReliable" ">"
  33. !
  34. Xmit "AT&F\\N3&K3E0Q0V1X4&C1&D0\0D"
  35. Wait 200
  36. !
  37. Jump "TestErrorCorrectingModem"
  38. -Label TestAutoReliable
  39. Flush
  40. !
  41. ClrMchStr
  42. MatchStr "GotAutoReliable" "OK"
  43. MatchStr "GotAutoReliable" ">"
  44. !
  45. Xmit "AT&F\\N3&K0%C0E0Q0V1X4&C1&D0\0D"
  46. Wait 200
  47. -Label TestErrorCorrectingModem
  48. ClrMchStr
  49. MatchStr "TestErrorCorrecting" "OK"
  50. MatchStr "TestErrorCorrecting" ">"
  51. !
  52. Xmit "AT&F&C1&D0&K3&Q5Q0E0V1X4\0D"
  53. Wait 200
  54. !
  55. Jump "TestExtendedModem"
  56. -Label TestErrorCorrecting
  57. Flush
  58. !
  59. ClrMchStr
  60. MatchStr "GotErrorCorrecting" "OK"
  61. MatchStr "GotErrorCorrecting" ">"
  62. !
  63. Xmit "AT&F&C1&D0&K0&Q5Q0E0V1X4\0D"
  64. Wait 200
  65. !
  66. -Label TestExtendedModem
  67. Flush
  68. !
  69. ClrMchStr
  70. MatchStr "GotExtendedModem" "OK"
  71. MatchStr "GotExtendedModem" ">"
  72. !
  73. Xmit "AT&FE0Q0V1X4&C1&D0\0D"
  74. Wait 200
  75. !
  76. Exit 4 { Nothing Special about this modem}
  77. -Label GotExtendedModem
  78. Exit 3
  79. -Label GotErrorCorrecting
  80. Exit 2
  81. -Label GotAutoReliable
  82. Exit 1
  83. -Label PortTaken
  84. Exit -111
  85. !
  86. *-Label 1
  87. *Exit 0
  88. !
  89. ###
  90.  
  91.